00050	
00075	
00100	(SETQ CNVAT (QUOTE /@))
00200	(SETQ CNVCOL (QUOTE :))
00300	(SETQ CNVCOM (QUOTE /,))
00400	(SETQ CNVQUO (QUOTE /'))
00500	(SETQ CNVEL (QUOTE !<))
00600	(SETQ CNVEG (QUOTE !>))
00650	
00700	(SETQ CNVEQS (QUOTE !?))
00800	(SETQ CNVEQU (QUOTE !/'))
00900	(SETQ CNVEA (QUOTE !@))
01000	(SETQ CNVEC (QUOTE !/,))
01100	(SETQ CNVES (QUOTE !;))
01150	(SETQ CNVDQ (QUOTE !/"))
01175	(PUTSYM (CNVDQ CNVDQ))
01200	(PUTSYM(CNVAT CNVAT)(CNVCOM CNVCOM)(CNVCOL CNVCOL)(CNVQUO (QUOTE QUOTE)))
01300	
01400	(PUTSYM(CNVEL CNVEL)(CNVEG CNVEG)(CNVEQS CNVEQS)(CNVEQU CNVEQU))
01500	(PUTSYM(CNVEA CNVEA)(CNVEC CNVEC)(CNVES CNVES))